home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Directorty Opus 5 - Magellan 2
/
Opus 5 - Magellan 2.iso
/
Extras
/
DOpus511
/
dopus_pch.lha
/
ARexx.lha
/
Arexx
/
lcd.dopus5
< prev
next >
Wrap
Text File
|
1995-06-13
|
621b
|
35 lines
/*
-----
lcd.dopus5
-----
Opens a new lister in Opus 5 showing the current directory in the
shell you run it from.
by Jonathan Potter, 7th May 1995
Sample usage :
alias lcd "rx dopus5:Arexx/lcd.dopus5" (in shell-startup)
lcd (from a shell)
*/
address 'DOPUS.1'
/* Get current directory.. there's probably an easier way of doing this */
address command 'cd >t:temp-cd'
/* Open temp file */
ok = open('in','t:temp-cd','r')
if ok ~= 1 then exit
/* Read cd */
cd = readln('in')
/* Open new lister */
lister new cd
/* Bring dopus to front */
dopus front